Даны 3 стороны треугольника.Определить виды треугольника — Pascal(Паскаль)

uses crt;
var a,b,c : integer;
begin
 clrscr;
 write('a = ');
 readln(a);
 write('b = ');
 readln(b);
 write('c = ');
 readln(c);
 if (a = b) and (a = c) and (c = b) then
  writeln('Pавносторонний')
 else
  if (a <> b) and (a <> c) and (b <> c) then
   writeln('Pазносторонний')
 else
  writeln('Равнобедренный');
 readln;
end.